﻿Imports TodoMicroSolutionPackV1.dal.dto
Imports System.ComponentModel
Namespace productos.dal.dto
    Public Class precio
        Implements IPermanentRecord
        Private _id As Integer
        Private _producto As producto
        Private _precio_neto As Double
        Private _lista_id As Integer
        Private _fecha As Date
        Private _moneda As constante
        Private _deleted As Boolean
        <Browsable(False)>
        Public Overridable Property id As Integer
            Get
                Return _id
            End Get
            Set(ByVal value As Integer)
                _id = value
            End Set
        End Property
        <Browsable(False)>
        Public Overridable Property producto As producto
            Get
                Return _producto
            End Get
            Set(ByVal value As producto)
                _producto = value
            End Set
        End Property
        <DisplayName("Precio Neto")>
        Public Overridable Property precio_neto As Double
            Get
                Return _precio_neto
            End Get
            Set(ByVal value As Double)
                _precio_neto = value
            End Set
        End Property
        <DisplayName("Lista ID")>
        Public Overridable Property lista_id As Integer
            Get
                Return _lista_id
            End Get
            Set(ByVal value As Integer)
                _lista_id = value
            End Set
        End Property
        <Browsable(False)>
        Public Overridable Property fecha As Date
            Get
                Return _fecha
            End Get
            Set(ByVal value As Date)
                _fecha = value
            End Set
        End Property
        <Browsable(False)>
        Public Overridable Property moneda As constante
            Get
                Return _moneda
            End Get
            Set(ByVal value As constante)
                _moneda = value
            End Set
        End Property
        Private ReadOnly Property monedaConstantIsOK As Boolean
            Get
                Return _moneda Is Nothing OrElse constantsUtil.isMoneda(_moneda)
            End Get
        End Property

        <DisplayName("Moneda")>
        Public Overridable ReadOnly Property moneda_nombre As String
            Get
                Return _moneda.valor
            End Get
        End Property
        <Browsable(False)>
        Public Overridable Property deleted As Boolean Implements IPermanentRecord.deleted
            Get
                Return _deleted
            End Get
            Set(ByVal value As Boolean)
                _deleted = value
            End Set
        End Property
    End Class
End Namespace

